TITLE SubAvoidWeap

; Timer 4 : Evade Torpedo legs

RULE Default Evade Torpedo
IF TIMER4 = -1 AND SILOS < 0 THEN
	;go right to max speed
	DEBUG "starting evasive manuever!"
	VAR_SET 1 {180,360}
	PRIORITY 255
	PERSIST VAR1
	MAX_SPD
	PRIORITY 255
	STEER_EVASIVE
	SET_TIMER 4 VAR1

	RULE Set Depth Opposite Layer
	IF ALT < LAYER THEN
		PERSIST VAR1
		PRIORITY 255
		SETALT {-100,-150}
	ELSE
		PERSIST VAR1
		PRIORITY 255
		LAYER_ALT  ;set depth to 100 ft below layer
	END

	;RULE Emergency Speed?
	;IF RNG < 3500 THEN
		;PRIORITY 255
		;PERSIST 0
		;MAX_SPD
	;END

	RULE Throw CM?
	IF EXPR {0,10} > 2 THEN
		RULE Decoy or Jammer?
		IF SOURCE = "Active Intercept" THEN
			DEBUG "CM Decoy"
			COUNTERMEASURE Decoy
		ELSE
			DEBUG "CM Jammer"
			COUNTERMEASURE Jammer
		END
	END
END